Champak 132 (Alt)/Vol 132.iso/games/3d_hyper/3d_hyper.dcr/Scripts_12_Exit Button.ls

Text File | 2011-06-09 | 1.5 KB | 69 lines

property pTarget, pIsPressed, pMyMem

on getPropertyDescriptionList me
  list = [:]
  addProp(list, #pTarget, [#comment: "Exit to?", #format: #symbol, #default: #interface, #range: [#interface, #exit]])
  return list
end

on mouseEnter me
  if sprite(me.spriteNum).member.type = #bitmap then
    if pIsPressed then
      sprite(me.spriteNum).member = member(pMyMem & "Down")
    else
      sprite(me.spriteNum).member = member(pMyMem & "Over")
    end if
  end if
  cursor(280)
end

on mouseLeave me
  if sprite(me.spriteNum).member.type = #bitmap then
    sprite(me.spriteNum).member = member(pMyMem)
  end if
  cursor(-1)
end

on beginSprite me
  pMyMem = sprite(me.spriteNum).member.name
  if the runMode contains "plugin" then
    sprite(me.spriteNum).loc = point(-1000, -1000)
  end if
end

on mouseUp me
  if the runMode contains "plugin" then
    return
  else
    cursor(-1)
    cleanUpGlobals()
    if pTarget = #exit then
      if the platform contains "Windows" then
        baHideTaskBar(0)
      end if
      set the exitLock to 0
      quit()
    else
      stopSounds()
      set the exitLock to 0
      sendAllSprites(#leaveForInterface)
      if the platform contains "Windows" then
        go(1, "hispeedP")
      else
        go(1, "hispeedM")
      end if
    end if
  end if
end

on mouseDown me
  pIsPressed = 1
  if sprite(me.spriteNum).member.type = #bitmap then
    sprite(me.spriteNum).member = member(pMyMem & "Down")
  end if
end

on mouseUpOutSide me
  pIsPressed = 0
end